﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class SaldosctesFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As SaldosctesBE
        Dim tmpSaldosctes As SaldosctesBE = New SaldosctesBE()
        Try
            With tmpSaldosctes
                .Docto = convertDTFromDb.ConvertString(dr.Item("Docto"))
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .Importe = convertDTFromDb.ConvertDecimal(dr.Item("Importe"))
                .TipoM = convertDTFromDb.ConvertString(dr.Item("TipoM"))
                .TipoP = convertDTFromDb.ConvertString(dr.Item("TipoP"))
                .Usr = convertDTFromDb.ConvertString(dr.Item("Usr"))
            End With
            Return tmpSaldosctes
        Catch ex As Exception
            Throw
        Finally
            tmpSaldosctes = Nothing
        End Try
    End Function
End Class
